home *** CD-ROM | disk | FTP | other *** search
/ The SelectWare System Volume 5 #4 / The SelectWare System Volume 5 #4.iso / bor10012 / rtsmp.pak / RAND.OVR < prev    next >
Text File  |  1992-06-10  |  171b  |  4 lines
  1. /* Rexx code for ObjectVision @RAND command (registered by register.ovr) */
  2. /* Purpose: return a random number from 0 to 1, inclusive */
  3. return RANDOM(0,100000)/100000
  4.